sub smsscroll(tsx as ubyte, tsy as ubyte):
  smsvdp(8,tsx)
  smsvdp(9,tsy)
  end sub
